﻿Imports MS.WindowsAPICodePack.Internal.CoreHelpers

Partial Public Class AboutDialog

    Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles OKButton.Click
        Close()
    End Sub

    Private Sub AboutDialog_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
        VersionLabel.Content = "Version: " + My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString + "." + My.Application.Info.Version.Build.ToString
        CopyLabel.Content = My.Application.Info.Copyright.ToString + " By Semagsoft"
        TextBox1.Text = My.Resources.License
        If RunningOnVista Or RunningOnWin7 Then
            If My.Settings.Options_IsGlassOn Then
                GlassHelper.ExtendGlassFrame(Me, New Thickness(-1, -1, -1, -1))
            End If
        End If
    End Sub
End Class
